home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
xdsn217.zip
/
BIN
/
xdssamp.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-09
|
2KB
|
59 lines
/***********************************************
Native XDS-x86 OS/2 Edition
v2.17 (pre-release)
Samples Directory Creation Script
Copyright (c) 1996 xTech Ltd.
************************************************/
'@echo off'
Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
Call SysLoadFuncs
call SysCls
call SysCurState off
say
say " This script will prepare the directory" directory()
say " for playing with XDS sample programs. It will create"
say " a redirection file and appropriate subdirectories."
say
say " Proceed? (Y/N)"
say
do forever
key = translate(SysGetKey('NOECHO'));
if (key = 'Y') | (key = 'N') | (key = X2C(27)) then leave
end
if key <> 'Y' then exit
parse source . . xdsdir
xdsdir = left(xdsdir,lastpos('\',xdsdir)-1) /* Strip "\<cmd-name>" */
xdsdir = left(xdsdir,lastpos('\',xdsdir)-1) /* Strip "\BIN" */
say " creating the directory structure..."
'mkdir DEF SYM OBJ SRC'
if rc <> 0 then do
say "Error making subdirectories"
exit 1
end
say " creating the redirection file..."
'echo>xc.red xc.msg = 'xdsdir'\bin'
'echo>>xc.red xc.cfg = 'xdsdir'\bin'
'echo>>xc.red *.tem = 'xdsdir'\bin'
'echo>>xc.red *.lib = 'xdsdir'\lib'
'echo>>xc.red *.sym = $!\sym;'xdsdir'\sym'
'echo>>xc.red *.obj = $!\obj'
'echo>>xc.red *.rsp = $!\obj'
'echo>>xc.red *.def = $!\def;'xdsdir'\os2def;'xdsdir'\samples\simple'
'echo>>xc.red *.mod = $!\src;'xdsdir'\samples\simple'
'echo>>xc.red *.ob2 = $!\src;'xdsdir'\samples\simple'
'echo>>xc.red *.prj = $!;'xdsdir'\samples'
say ''
say ' DONE'
say ''
exit